home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok40.lha / Environment / IntuiSup.Def < prev    next >
Text File  |  1993-08-15  |  1KB  |  41 lines
  1. DEFINITION MODULE IntuiSup;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    IntuiSup
  4.    :Version.    1.5
  5.    :History.    Jan-88
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  ShareWare
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM    IMPORT    ADDRESS;
  14. FROM Intuition    IMPORT    Gadget, IntuiText, Border, StringInfo, ActivationFlags,
  15.             ActivationFlagSet, IDCMPFlagSet, WindowFlagSet,
  16.             WindowPtr, ScreenFlagSet;
  17.  
  18.  
  19. PROCEDURE InitBorder (VAR Bord : Border; xyData, next : ADDRESS);
  20.  
  21. PROCEDURE InitStringInfo (VAR Info : StringInfo;
  22.               VAR buf, unbuf : ARRAY OF CHAR);
  23.  
  24. PROCEDURE InitIText (VAR IText : IntuiText; x,y : INTEGER; text : ADDRESS);
  25.  
  26. PROCEDURE CreateGadget (VAR Gad : Gadget; x,y,w,h,ID : INTEGER; Type:CARDINAL;
  27.              next, Info, Bord, Text : ADDRESS;
  28.              Activ : ActivationFlagSet);
  29.  
  30. PROCEDURE CreateWindow(x,y,w,h : INTEGER; if: IDCMPFlagSet; wf: WindowFlagSet;
  31.                        gad,scr,tit : ADDRESS; typ : ScreenFlagSet) : WindowPtr;
  32.  
  33. PROCEDURE IDCMPOn (window : WindowPtr; flags : IDCMPFlagSet);
  34.  
  35. PROCEDURE IDCMPOff (window : WindowPtr);
  36.  
  37. PROCEDURE ActivWindow () : WindowPtr;
  38.  
  39.  
  40. END IntuiSup.Def
  41.